home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / crobots3 / kamikaze.r < prev   
Text File  |  1986-11-08  |  896b  |  31 lines
  1. /* kamikaze.r */
  2. /* chases down and runs into opponents, */
  3. /* firing all the while */
  4.  
  5. main()
  6.    int angle, range;
  7.    int scan_start, scan_increment;
  8.    {
  9.     scan_start = 0;    
  10.     scan_increment = 10;
  11.  
  12.     while(1) {          /* infinite loop */
  13.         angle = scan_start;
  14.         while ((range = scan(angle,scan_increment))==0) {
  15.             angle += 2 * scan_increment;
  16.            } /* end while */
  17.  
  18.         if (range<=700){
  19.             cannon(angle,range); /* fire at enemy */
  20.             drive(angle,50); /* chase enemy */
  21.            }
  22.         else{
  23.             drive(angle,range); /* go get 'em */
  24.            }
  25.             scan_increment = 10;
  26.             scan_start = angle - 10;
  27.        } /* end while*/
  28.    } /* end main() */
  29.  
  30.